home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr49 / 106_01.zip / OTOI.C < prev    next >
Text File  |  1993-06-26  |  512b  |  25 lines
  1. /*
  2.     otoi(n)
  3.  
  4.     this function converts an offset octal number in ASCII
  5.     to an integer. the number is in the format xxx.xxx{a} and
  6.     may be preceeded by white space.
  7. */
  8.  
  9. otoi(n)
  10. char *n;
  11. {
  12.     int val, b, i;
  13.     char c;
  14.  
  15.     val = 0; b = 16384;
  16.  
  17.     while ((c = *n) == '\t' || c == ' ') ++n;
  18.     for (i = 0; i < 7; i++) {
  19.        if ((c = *n) == '.') {++n; b = 64;}
  20.        else {c = *n++; val = val + (b * (c - '0')); b /= 8;}
  21.     }
  22.     return val;
  23. }
  24.  
  25.